home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Games Machine 75
/
XENIATGM75.iso
/
Shareware
/
X-Setup 5.0
/
_SETUP.1
/
XQ MSDOSSYS 1.xpl
< prev
next >
Wrap
Text File
|
1998-08-08
|
2KB
|
101 lines
"FILE"="Xteq Systems X-Setup Plugin 3.1"
"TYPE"="6"
"COUNT"="5"
"UIPATH"="System\Windows 95/98 Boot Options"
"NAME"="General Options"
"LANGUAGE"="VBScript"
"TEXT 1"="Start Windows automatically"
"TEXT 2"="Display Windows logo while booting"
"TEXT 3"="Enable bootmenu"
"TEXT 4"="Display bootmenu before starting"
"TEXT 5"="Display warning before using "Safe Mode""
"DESCRIPTION 1"="Change the options here to control what Windows 95 does on bootup."
"AUTHOR"="Xteq Systems"
"COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
"COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@gmx.net."
"COMMENT 2"="Version 1.1"
'Declaration of some constants
sF="C:\MSDOS.SYS"
sO="OPTIONS"
'Called when the Plugin is started
Sub Plugin_Initialize
If GetWinVer=1 or GetWinVer=3 then
Call FileSetAttribute(sf,"S-")
Call FileSetAttribute(sf,"R-")
Call FileSetAttribute(sf,"H-")
i=IniReadValue(sf,so,"BootGUI")
if i=1 then SetUIElement 1,true
i=IniReadValue(sf,so,"Logo")
if i=1 then SetUiElement 2,true
i=IniReadValue(sf,so,"BootKeys")
if i=1 then SetUiElement 3,true
i=IniReadValue(sf,so,"BootMenu")
if i=1 then SetUiElement 4,true
i=IniReadValue(sf,so,"BootWarn")
if i=1 then SetUiElement 5,true
else
Disable
end if
End Sub
'Called when the Plugin should validate the Data the user has entered
Sub Plugin_CheckData(ElementIndex)
End Sub
'Called when the Plugin should apply the changes
Sub Plugin_Apply(ElementIndex,ElementSubIndex)
b=GetUIElement(1)
if b=true then
Call IniWriteValue(sf,so,"BootGUI",1)
else
Call IniWriteValue(sf,so,"BootGUI",0)
end if
b=GetUIElement(2)
if b=true then
Call IniWriteValue(sf,so,"Logo",1)
else
Call IniWriteValue(sf,so,"Logo",0)
end if
b=GetUIElement(3)
if b=true then
Call IniWriteValue(sf,so,"BootKeys",1)
else
Call IniWriteValue(sf,so,"BootKeys",0)
end if
b=GetUIElement(4)
if b=true then
Call IniWriteValue(sf,so,"BootMenu",1)
else
Call IniWriteValue(sf,so,"BootMenu",0)
end if
b=GetUIElement(5)
if b=true then
Call IniWriteValue(sf,so,"BootWarn",1)
else
Call IniWriteValue(sf,so,"BootWarn",0)
end if
Restart
End Sub
'Called when the Plugin is about to be removed from memory
Sub Plugin_Terminate
Call FileSetAttribute(sf,"S+")
Call FileSetAttribute(sf,"R+")
Call FileSetAttribute(sf,"H+")
End Sub